約 2,885,776 件
https://w.atwiki.jp/c21coterie/pages/688.html
作者 堀江 v伸一 心のトキメキとのリズムとともに自転車をこいでいく、家族の中心でにこやかに笑い。 ご近所さんで評判の。 地元で愛されそ街かどや都会の雑踏の中にその姿を見出せる。 平和な国のもと伸び伸びと生活し、世界のどこかで同じ空を見上げている。 そんな貴方に出会う旅に出かけてもいいでしょうか？ こんな自作のポエムもいいですが勉強もよいものです。 今日の勉強です。 アトムを要素として持つ集合が与えられるので、そのべき集合を求めるプログラム。 unique述語は借り物だけど、power_set述語は一応自分で考えた方法でコードを書いてみた。 uniqueを消し去ってもよかったのだが分かりにくくなると思ったのでこのへんでストップ。 歯車が回るようにコトコト関数の中で結果を渡して一回転したら上に戻すイメージ。 unique([], []). unique([H|T], UT) - member(H, T),!, unique(T, UT). unique([H|T], [H|UT]) - unique(T, UT). power_set(X,Y) -unique(X,X1),power_set(X1,[],[],Y). power_set([],Perm,Temp,[Perm|Temp]). power_set([X|Rest],Perm,Temp,Result) - power_set(Rest,[X|Perm],Temp,Re1), power_set(Rest,Perm,Re1,Result). 元の問題文 6.16 A が集合だとするとき、A のすべての部分集合から構成される集合のことを、A の「べき集合」(power set) と呼びます。 たとえば、 [a, b, c] というリストによってあらわされる集合のべき集合は、 [[], [a], [b], [c], [a, b], [a, c], [b, c], [a, b, c]] というリストによってあらわされる集合です。 L がリストだとするとき、power_set(L, P) というゴールで呼び出すと、L が集合をあらわしていると解釈したときの L のべき集合をあらわすリストを求めて、 その結果と P とを単一化する、 power_set/2 という述語の定義を書いてください。 実行例 ?- power_set([a, b, b, c], X). X = [[], [c], [b], [b, c], [a], [a, c], [a, b], [a, b, c]] １７日目のＰｒｏｌｏｇ勉強 小学校の算数までしかできないと創価学会員のかたからうわさを流されている堀江伸一こと私の今日の勉強内容です。 今日はＰｒｏｌｏｇでライツアウトの最長手数をもとめるプログラムを書いたら遅いしメモリを取るしでいいプログラムが書けませんでした。 今日書いたプログラムは以下の通り。 push_button2(N,State,NextState) - R is N // 5, C is N mod 5, nth0(C,[3,7,14,28,24],XorM), nth0(C,[1,2,4,8,16],XorU), XorM1 is XorM (5*R), (R 0 - XorU1 is XorU (5*(R-1));XorU1 is 0), (R 4 - XorD1 is XorU (5*(R+1));XorD1 is 0), NextState is State xor (XorU1 \/ XorM1 \/ XorD1). b_search(_,Down,Up,_) -Up Down,fail. b_search(List,Down,Up,No) - Down= Up, M is (Down+Up)//2, nth0(M,List,X), (X No- Down1 is M+1,b_search(List,Down1,Up,No);true), (X No- Up1 isM-1,b_search(List,Down,Up1,No);true), true. push_one(NowList,OldList,NextState,OldSize,NowSize) - select(State,NowList,_), between(0,24,N), push_button2(N,State,NextState), not(b_search(OldList,0,OldSize,NextState)), not(b_search(NowList,0,NowSize,NextState)), true. next_search(P,OldList,Now) - length(Now,NowSize), length(OldList,OldSize), NowSize1 is NowSize-1, OldSize1 is OldSize-1, write([P,NowSize]), P 4, findall(State,(push_one(Now,OldList,State,OldSize1,NowSize1)),Next), sort(Next,Next1), write('ok'),nl, P1 is P+1, next_search(P1,Now,Next1).
https://w.atwiki.jp/battler/pages/10102.html
「Miss（お嬢様）...」 登場作品：DEMENTO Daniella（ダニエラ）は壁のシミ氏が登録する版権キャラクター。 本キャラクターについて著者が最低限の情報を書かせて貰いたいと思う。 カプコンより発売されたホラーゲーム、DEMENTO（デメント）に登場するキャラクター。 人形のような美しい容姿をした城のメイド。無口で機械的に作業する。最初はフィオナに服を届けたり料理を用意したりなどして敵意を見せることはないものの。 DEMENTO本編後半にて豹変。ガラス片を手に持ち。彼女もまた主人公フィオナの命を狙い。執拗に追い回すようになる。 今作の主人公と同じく。拉致された人間であり。薬物投与や暗示などによって記憶を殆ど失っているらしく。疼痛概念と味覚が欠如している。 さらに生まれながら子を産めない体質から、自身をある人物（DEMENTOのラストボス）によって作られたホムンクルスと思い込み。 鏡に映る自分の姿を見ると激しい嫌悪感や劣等感が露となって発狂してしまう。 ちなみにゲーム中にはこの性質を利用して彼女を足止めをすることができる仕掛けがある。 狂気と平常が曖昧であり。 時折今まで通りのメイドとして働く姿も見せるが、やはり最終的には完全な狂気へと激化する。 そして旧館の展望台へ主人公を追い詰め、何度倒れようと立ち上がるが。 最期は主人公が発動させた仕掛けの影響で天井のガラスが割れ。 そして落ちてきた巨大なガラス片に胴体を貫かれ絶命。 その際に今まで感じるはずの無かった?痛み?を感じた事により自分が本物の人間であるという事実を認識した事で、その死に顔は優しく微笑んでいるような安らかなものだった。（Wikipediaより一部抜粋、改竄） 体22/攻38/防29速11（攻防重視） 攻撃：Miss（お嬢様）... 回避：味覚も快楽も 痛みさえも感じないのです... 命中：...お食事の準備が出来てございます...お嬢様 会心：Miss... 勝利：お嬢様は 本当に おきれいで おきれいで... ひャハ ハははは ハハ 敗北：（痛み...？ そう...私は人間だったのですね... そう......） 逃走： 備考： 本記事については。壁のシミ様がWikiに来られた際、自由に編集出来るものとします。
https://w.atwiki.jp/kplus/pages/111.html
リファレンス バージョン対応 / 引数・記述例 317件 機能・意味 Excelバージョン 2000 2002 2003 2007 2010 2013 AVERAGE 平均値（数字以外は除く） ● ● ● ● ● AVERAGEA 平均値（全て対象） ● ● ● ● ● AVERAGEIF 平均値（条件） ● ● AVERAGEIFS 平均値（複数条件） ● ● DSUM 集計（条件） ● ● ● ● ● MEDIAN 中央値 ● ● ● ● ● MODE 最頻値 ● ● ● ● ● MODE.MULT 最頻値（複数の最頻値） ● MODE.SNGL 最頻値（１つの最頻値） ● SUM 合計 ● ● ● ● ● SUMIF ● ● ● ● ● SUMIFS ● ● ● ● ● SUBTOTAL ● ● ● ● ● SUMPRODUCT ● ● ● ● ● COUNT ● ● ● ● ● COUNTA ● ● ● ● ● COUNTBLANK ● ● ● ● ● COUNTIF ● ● ● ● ● COUNTIFS ● ● ● ● ● DCOUNT ● ● ● ● ● DCOUNTA ● ● ● ● ● FREQUENCY ● ● ● ● ● CEILING ● ● ● ● ● CEILING.PRECISE ISO.CEILING EVEN FIXED FLOOR FLOOR.PRECISE INT MOD MROUND ODD QUOTIENT ROUND ROUNDUP ROUNDDOWN TRUNC LARGE MAX MIN RANK RANK.AVG RANK.EQ SMALL DATE DATEDIF DATESTRING DATEVALUE DAY EDATE EOMONTH MONTH NETWORKDAYS NETWORKDAYS.INTL NOW() TODAY() WEEKDAY WEEKDAY WEEKNUM WORKDAY WORKDAY.INTL YEAR HOUR MINUTE SECOND TIME TIMEVALUE ASC FIND JIS LEFT LEN LENB LOWER MID NUMBERSTRING PHONETIC PROPER RIGHT SEARCH UPPER CHAR CLEAN CODE CONCATENATE DOLLAR EXACT REPLACE REPT SUBSTITUTE TEXT TRIM YEN ADDRESS CHOOSE COLUMN・COLUMNS HLOOKUP HYPERLINK INDEX INDIRECT LOOKUP MATCH OFFSET ROW・ROWS TYPE VLOOKUP AND EXACT IF IFERROR ISBLANK ISERR ISERROR ISEVEN ISLOGICAL ISNONTEXT ISNUMBER ISODD ISTEXT N NA OR ABS AGGREGATE COS DEGREES EXP FACT LN LOG LOG10 PI() POWER RADIANS RAND RANDBETWEEN SIGN SIN SQRT TAN TEXT VALUE DAVERAGE DCOUNT DCOUNTA DGET DMAX DMIN DSUM PMT PV FV RATE NPER CONVERT DELTA GESTEP CELL INFO ABS ADDRESS AGGREGATE AND ASC AVERAGE AVERAGEA AVERAGEIF AVERAGEIFS CEILING CEILING.PRECISE CELL CHAR CHOOSE CLEAN COLUMN・COLUMNS CODE CONCATENATE CONVERT COS COUNT COUNTA COUNTBLANK COUNTIF COUNTIFS DATE DATEDIF DATESTRING DATEVALUE DAVERAGE DAY DCOUNT DCOUNTA DEGREES DELTA DGET DMAX DMIN DOLLAR DSUM EDATE EOMONTH EVEN EXACT FACT FIND FIXED FLOOR FLOOR.PRECISE FREQUENCY FV GESTEP HLOOKUP HOUR HYPERLINK IF IFERROR INDEX INDIRECT INFO INT ISBLANK ISERR ISERROR ISEVEN ISLOGICAL ISNONTEXT ISNUMBER ISODD ISTEXT ISO.CEILING JIS LARGE LEFT LEN LENB LN LOG LOG10 LOOKUP LOWER MATCH MAX MEDIAN MID MIN MINUTE MOD MODE MODE.MULT MODE.SNGL MONTH MROUND EXP N NA NETWORKDAYS NETWORKDAYS.INTL NOW() NPER NUMBERSTRING ODD OFFSET OR PHONETIC PI() PMT POWER PROPER FV QUOTIENT RADIANS RAND RANDBETWEEN RANK RANK.AVG RANK.EQ RATE REPLACE REPT RIGHT ROUND ROUNDDOWN ROUNDUP ROW・ROWS SEARCH SECOND SIGN SIN SMALL SQRT SUBSTITUTE SUBTOTAL SUM SUMIF SUMIFS SUMPRODUCT TAN TEXT TIME TIMEVALUE TODAY() TRIM TRUNC TYPE UPPER VALUE VLOOKUP WEEKDAY WEEKDAY WEEKNUM WORKDAY WORKDAY.INTL YEAR YEN ＆(演算子) * ？(ワイルドカード文字)
https://w.atwiki.jp/toho/pages/6534.html
エスメラルダゲイシャ ~月面喫茶~ サークル Pizuya s Cell Number Track Name Arranger Original Works Original Tune Length 01 来世紀のカフェテラスは真空世界 Pizuya's Cell 大空魔術 衛星カフェテラス [03 26] 02 夢の粒子は細胞を幸せにする Pizuya's Cell 夢違科学世紀 華胥の夢 [03 02] 03 vy∞ = lim t→∞ vy = -m/k G Free! Pizuya's Cell 大空魔術 G Free [03 37] 04 宇宙空間から見えたセノタフ Pizuya's Cell 蓮台野夜行 幻想の永遠祭 [03 44] 05 私達は月と地球のホログラム Pizuya's Cell 大空魔術 月面ツアーへようこそ [03 48] 06 展望映像36ペタバイト Pizuya's Cell 卯酉東海道 ヒロシゲ36号 ～ Neo Super-Express [03 12] 07 右手のリンゴを夢の世界へアップロード Pizuya's Cell 違科学世紀 夢と現の境界 [01 48] 08 無重力へ羽搏いて聞くソラの声 Pizuya's Cell 蓮台野夜行 月の妖鳥、化猫の幻 [03 19] 09 西風と教授 Pizuya's Cell 大空魔術 大空魔術 ～ Magical Astronomy [04 00] 10 第三の太陽が燃え尽きる Pizuya's Cell 蓮台野夜行 魔術師メリー [03 31] 11 コイビト握り Pizuya's Cell 蓮台野夜行 少女秘封倶楽部 [03 02] 12 綻びた片思いの糸 Pizuya's Cell 蓮台野夜行 夜のデンデラ野を逝く [02 33] 詳細 東方ピアノジャズアレンジアルバム 東方紅楼夢8(2012/10/07)にて頒布 イベント価格：800円 ショップ価格：1,200円(税込) レビュー Tr.9 「西風と教授」 は原曲が「大空魔術 ～ Magical Astronomy」とあるが、 実際は「車椅子の未来宇宙」のようだ。 -- ボナクア (2012-10-17 05 57 20) 緩やかな雰囲気で、BGMに持って来いです。少しアンニュイな気分で 旅をしてみたくなる。 -- UFO (2012-11-27 22 35 54) 名前 コメント
https://w.atwiki.jp/fragile-love/pages/58.html
ツンは、何の遠慮も無く俺の胸に飛び込んできた。 ツンと会ってなかった、たった一週間・・・たった一週間なのに・・・ この一週間、拷問のような日々だった。 どれだけの時間、彼女の病室に立ち尽くしただろうか？ 何度彼女を忘れようとしただろうか？ 何度叶わぬと知った恋心に・・・涙しただろうか？ 何度彼女に・・・会いたいと、触れたいと・・・願っただろうか？ 彼女が胸の中に飛び込んできた。 彼女の軽い体を、俺は、しっかりと、受け止め、抱きしめた。 中編
https://w.atwiki.jp/fragile-love/pages/26.html
初代スレの長編 2代目スレの長編 3代目スレの長編
https://w.atwiki.jp/fragile-love/pages/42.html
現在議論内容はありません。 形骸化しております 選択肢 投票 賛成 (0) 反対 (0) 名前 コメント
https://w.atwiki.jp/prima/pages/1681.html
Blogs on Marcella Craft #bf レパートリー 作曲家名（全角フルネーム）に置き換えてください [部分編集] 作曲家名（全角フルネーム）に置き換えてください 作品名（全角）に置き換えてください役名（全角）に置き換えてください Last Update 2011/01/30 04 25ページ先頭へ
https://w.atwiki.jp/sabakanse/pages/18.html
Excel操作 その１ (PowerShell)でやったように、ブックやシートのオブジェクトをつかんでしまえば他の言語とほぼ一緒なわけですが。 めもめも 値の操作 # セルに値を入れる $sheet.Cells.Item( $resultRowIndex , $column ).Value2 = 123 # セルの値を取り出す $value = $sheet.Cells.Item( $resultRowIndex , $column ).Value2 # セルの表示文字列を取得(書き込めない) $text = $sheet.Cells.Item( $resultRowIndex , $column ).Text 書式コピー # 書式コピー指定 $xlPasteFormats = -4122 # 行単位で書式をコピー $source = $sheet.Range("$fromRow` $fromRow") $dest = $sheet.cells.Item( $destRow , 1) [void]$source.Copy() [void]$dest.PasteSpecial( $xlPasteFormats )
https://w.atwiki.jp/sabakanse/pages/16.html
とりあえず既存のBookを編集する。 だいたいこんな感じ。 try{ # Excelオブジェクト作成 $excel = new-object -comobject Excel.Application # アラートで止めない $excel.DisplayAlerts = $false # Bookを開いて $book = $excel.Workbooks.Open( "Bookのパス" ) # 書き込みできますか？ if( $book.ReadOnly -eq $true ){ # やめる return } # 編集するシートをつかむ $sheet = $book.worksheets.Item("シート名") # なんたらかんたら # 保存 $book.Save() } finally{ # 解放 $sheet = $null if( $book -ne $null ){ $book.Close() } $book = $null if( $excel -ne $null ){ $excel.Quit() } $excel = $null [System.GC] Collect([System.GC] MaxGeneration) } 「なんたらかんたら」は Excel操作 その２ (PowerShell) を参照してください。 しかしPowerShellからのExcel操作は動きが遅い… 名前 コメント